﻿

Namespace Compiler.Semantic

    Public Class StandardTypeReference
        Inherits TypeReference

        Private m_fundamentalType As TypeDescription

        Public Sub New(ByVal fundamentalType As TypeDescription)
            Debug.Assert(fundamentalType IsNot Nothing)
            m_fundamentalType = fundamentalType
        End Sub

        Public Overridable ReadOnly Property FundamentalType() As TypeDescription
            Get
                Return m_fundamentalType
            End Get
        End Property

        Public Overrides Function GetReflectionType() As System.Type
            Return m_fundamentalType.UnderlyingType
        End Function
    End Class
End Namespace

